#!/usr/bin/perl -w
#$Source: Volumes://MATEOR/prlserverapi/start.pl$
#$Revision: 0.01-0a$
#$Date: May 21, 2012$
#
#------------------
# PrlServerAPI Copyright Matthew Caswell, 2012
#------------------
#

use strict;
use serverconf;

my($CONF) = &serverconf::getConf();
my($SERVER_INSTANCE) = `perl ./server.pl $CONF->{PORT} $CONF->{HOSTNAME}`;
print "\n\e[1;31mServer quit with status $SERVER_INSTANCE.\e[0m\n";
exit;
